home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / othernet / mausnet / trapido / maustau.tds < prev    next >
Text File  |  1992-06-04  |  1KB  |  61 lines
  1. /**********************************************************/
  2. /* Automatischer Maustausch (Markus Bank September 1991)  */
  3. /* Erweitert und zu TDS .4 konvertiert von Thorsten Bella */
  4. /**********************************************************/
  5.  
  6. /* AutoStart einschalten */
  7.  
  8. AUTOSTART +
  9.  
  10. /* Den Pfad bitte anpassen! */
  11.  
  12. RECEIVE ARG('-rz -P E:\TRAPIDO\IMPORT\')
  13.  
  14. CHECK EXTERNAL ACCESSORY
  15. IF GOODRESULT
  16.   USE EXTERNAL ACCESSORY
  17. ENDIF
  18. IF BADRESULT
  19.   USE EXTERNAL PROGRAMME
  20. ENDIF
  21.  
  22. /* Jetzt noch den Autostart-String fr die Maus umdefinieren */
  23. AUTOSTART STRING('**'/24'B008')  
  24. /* Buffer einschalten und l”schen */
  25.  
  26. BUFFER ON
  27. BUFFER CLEAR
  28.  
  29. /* Auf login warten und eintragen */
  30. /* Fr Vorname, Nachname und Passwort die entsprechenen Daten eintragen */
  31.  
  32. WAIT('eingetragener Benutzer?',30)
  33. SEND('MausTauschVorname Name'/13'Passwort'/13)
  34.  
  35. /* Auf Protokollauswahl warten */
  36. WAIT('Protokoll',30)
  37. SEND('Z')
  38.  
  39. /* Auf Protokollstart warten */
  40. WAIT('startet',30)
  41. /* Pfad anpassen ! */
  42.  
  43. ZMODEM UPLOAD('-sz E:\TRAPIDO\EXPORT\INFILE.LZH')
  44.  
  45. /* Warten bis die Verbindung beendet ist */
  46. /* Zur Sicherheit kann die Null durch eine Zeit in sek ersetzt werden */
  47.  
  48. WAIT('Was?',0)
  49. SEND('+++')
  50. WAIT('',3)
  51. SEND('ATH0'/13) 
  52.  
  53. /* Buffer speichern - zur sp„teren Kontrolle */
  54.  
  55. BUFFER SAVE('E:\TRAPIDO\MAUSTA.HST')
  56.  
  57. QUIT
  58.  
  59. END.
  60.  
  61.